var
  I: Integer;

begin
  I := I + 1;
  FileName := FileReadLine('C:\Names.txt', I);
end.